Listing for 63 byte BBC BASIC Christmas tree by S. Harrison (steve3000)

10FORa=1TO14:x=ASC(MID$("BDFHDHLPFLRXDD",a,1))-65:PRINTTAB(20-x/2)STRING$(x,"*"):NEXT

That's it!